home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 88 / 64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64 / plotter demo 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.2 KB  |  63 lines
  1. 1 ifa=0thena=1:load"plotter",8,1
  2. 5 print"[147]
  3. 10 [158]20480
  4. 15 [153]"beispiel fuer einen funktionsplotter    mit exakter cm-einteilung
  5. 16 gosub1000:print"plotten funktion 1 oder 2 ?
  6. 17 [161]fr$:[139]fr$[179]"1"[176]fr$[177]"2"[167]17
  7. 18 fr[178][197](fr$)
  8. 20 [159]12,12
  9. 30 [152]12,"e1
  10. 40 print#12,"k1
  11. 50 [152]12,"m0,100
  12. 60 print#12,"d201,100
  13. 70 [152]12,"u1
  14. 80 print#12,"i-5,-5
  15. 90 [152]12,"i-5,5
  16. 100 print#12,"u0
  17. 110 [152]12,"m101,200
  18. 120 print#12,"d101,0
  19. 130 [152]12,"u1
  20. 140 print#12,"i5,5
  21. 150 [152]12,"i-5,5
  22. 160 print#12,"u0
  23. 170 [129]i[178][171]9[164]9:[139]i[178]0[167]220
  24. 180 [152]12,"m99,"100[171]10[172]i
  25. 190 [152]12,"i4,0
  26. 200 print#12,"r1,-1
  27. 210 [152]12,"p"i
  28. 220 [130]
  29. 270 [129]i[178][171]9[164]9:[139]i[178]0[167]320
  30. 280 [152]12,"m"101[170]i[172]10",98
  31. 290 print#12,"i0,4
  32. 300 [152]12,"r-3,2
  33. 310 print#12,"p"i
  34. 320 next
  35. 330 print#12,"s1
  36. 340 [152]12,"m101,100
  37. 350 print#12,"n6
  38. 360 [152]12,"m111,5
  39. 370 print#12,"py
  40. 380 [152]12,"m190,90
  41. 390 print#12,"px
  42. 410 [152]12,"s0
  43. 430 forx=-9to9step.5
  44. 435 onfrgoto440,443
  45. 440 y=(x*x/4.5)-9:goto450
  46. 443 y=(sin(x/2)*6+cos((x-3)/6)-x)/1.5
  47. 450 iffg=.thenfg=1:print#12,"."x*10+101","100-y*10:goto460
  48. 455 print#12,"d"x*10+101","100-y*10
  49. 460 print#12,"n5
  50. 470 [130]
  51. 480 [152]12,"m0,190
  52. 490 print#12,"z1
  53. 500 [152]12,"s1
  54. 505 onfrgoto510,513
  55. 510 print#12,"py=(x*x/4.5)-9":goto520
  56. 513 print#12,"py=(sin(x/2)*6+cos((x-3)/6)-x)/1.5
  57. 520 [152]12,"o
  58. 900 end
  59. 1000 print"achtung: bei der epson-version des
  60. 1001 [153]"plotter-siumlators wird der rechte teil
  61. 1002 print"des bildes abgeschnitten! warum, steht
  62. 1003 [153]"in der bedienungsanleitung.":[142]
  63.